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;* TRANSFERRED. * 
st & 
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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 
v03-001 MTROO31 e Rhodes 10-Apr-1983 
Change obsolete SHAt _TIRCMDDEF macro veoterence 
to SMAC_OBJCODDEF. 
v0O1.02 RNOOOS R. Newland 27-Aug-1979 


Remove .ALIGN LONG statements and unecessary 
branch statements. 
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MACSCOMPUT ARITHMEITIC ROUTINES 1g°§ 
v04-000 DECLARATIONS - 
9 ; .SBTTL DECLARATIONS 
0 5 : INCLUDE FILES: 
0 0 $ x 
$80 g : MACROS: 
$09 60 : : 
00 61 
00 6¢ $MAC_OBJCODDEF 
00 6 
$00 es 
0000 es + EQUATED SYMBOLS: 
0000 «= 467: 
0000 4=«- 68 
0000 «= «469 sx 
0000 70 ; OWN STORAGE: 
0000 71: 
0000 «3s 72 


SEP 


Ep-19B4 01:47:33 EMACHOSSRCSCOMPUT MAR; 1 


DEFINE OBJECT CODE COMMANDS ETC. 
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MACSCOMPUT ARITHMEITIC ROUTINES | 
v04=000 COMPUTATIONAL ROUTINES ~SEP=1984 MACRO.SRCJCOMPUT MAR; 1 
308 2 .SBTTL COMPUTATIONAL ROUTINES 
| 
0000000 ik: .PSECT MACS$RO_CODE_P15,NOWRT,GBL,LONG 
0000 £8 :++ 
4 OB ; FUNCTIONAL DESCRIPTION: 
0000 ae THESE ROUTINES PERFORM ARITHMETIC AQRERATIONS ON THE VALUES 
0000 gi ; STORED ON MACSAL ALST ACK. THE PASS 2 VERSIONS EMIT CODE 
0000 83 ; THE OBJECT FICE. WHILE THE PASS 1 VERSIONS DO NOT. THE 
909 84 : RESULT 1S SETURNED ON THE TOP OF THE STAC 
$000 Bg i 
0000 7 
0000 88 P2SADD:: 
9000 89 $OBJ_CHKBYT #TIRSC_OPR_ADD :GENERATE OBJECT COMMAND 
ono 30 006 gp FMRI TH RRDO TT X9_AND_STORE LOAD RO AND R1 
51 50 CO 0009 $8 ADDL2 ROTR [FORM SUM 
000c 3=—s-«95 IF DF CHECK_OVERFLOW 
000C = « 
000c ~=—s_—«9 BVC P1SARITH_ SAME ;BRANCH IF NO OVERFLOW 
4445 a BRW SET OVERFLOW ;OVERFLOW=--GO FLAG IT 
000C 100 .IFF =; DEFINED CHECK_OVERFLOW 
000¢ 101 
05 000¢ 198 RSB 
000D 10 
000D 104 .IFTF = ;DEFINED CHECK_OVERFLOW 
000D 105 
000D 106 
000D 107 P2SSAME 
900 108 *$oBy _CHKBYT #TIRSC_OPR_NOP :GENERATE COMMAND 
0013 110 PISARITH_SAME:: 
05 001 111 RSB 
0014 118 
0014 113 P2SAND:: 
0014 114 “$OBJ_CHKBYT #TIRSC_OPR_AND :GENERATE COMMAND 
001A 116 PISARITH_AND:: 
008¢ 9 pera 117 BSBw LD_XQ_AND_STORE LOAD RO AND R1 
50 50 D 1D «118 MCOML ROTRO GET COMPLEMENT 
51 50 CA 00 9 119 BICL2 RO.R1 [DO THE AND | 
5 00 120 SB 
024 121 
024 1 é P2SASH:: 
6 4 ; "$OBJ_CHKBYT #TIRSC_OPR_ASH :GENERATE COMMAND 
02A 125 PISARITH_ASH:: 
007¢ 30 O2A 1 6 BSBW  LD_XQ_AND_STORE 
50D » 4 TSTL = RO :NEG SHIFT COUNT? 
0B «O14 iy 8 BGTR 10$ :1F GTR NO 
14 13 + 3 BEQL 30$ :I1F EQL DO NOT TOUCH SHIFT COUNT 
50 FFFFFFEO 8F CB 3 «130 BISL2 #*XFFFFFFEO,RO [YES=-MAKE IT NEG MODULO 32 | 


MACSCOMPUT ARITHMEITIC ROUTINES 16-SEP-1984 0 AX/VMS Macro V04-00 
v04-000 COMPUTATIONAL ROUTINES -SEP=1984 $2 3: 43 MACRO.SRCJCOMPUT.MAR; 1 
, oon 3 131 BRB 20$ 
50 _FFFFFFEO cA 1 § 10$: BICL2 #*XFFFFFFEO,RO sMAKE MODULO 32 
1 : 4 1 ; $: ASHL RO,R1,R1 7D0 THE SHIFT 
0 oe : $: RSB ;RETURN TO STORE RESULT 
0948 1 § P2SNEG:: 
ie: 4 $OBJ_CHKBYT #TIRSC_OPR_NEG ;GENERATE COMMAND 
Q04E 139 PISARITH_NEG:: 
0060 30 OO4E 140 BSBW LD_XEQ_STORE_0 7GET THE OPERAND 
51 51 CE 0051 141 MNEGL R17R1 iNEGA 
0 O038 1g RSB ;RETURN TO STORE 
055 14 
0055 144 P2$NOT: 
O033 132 * soBy _CHKBYT #TIRSC_OPR_COM ;GENERATE COMMAND 
O028 147 PISARITH_NOT:: 
54 10 0058 148 BSBB = LD_XEQ_STORE_0 3GET THE OPERAND 
51 51 D2 Q05D 149 MCOML R1,R1 ; COMPLEMENT IT 
05 0060 150 RSB :RETURN TO STORE RESULT 
0061 151 
0061 13 P2SOR:: 
O06! 13 $OBJ_CHKBYT #TIRSC_OPR_IOR ;GENERATE COMMAND 
0067 155 PISARITH_OR:: 
40 10 0067 156 BSBB_ —-—« LD_XQ_AND_STORE ;LOAD OPERANDS 
51 50 C8 0069 £157 BISL2 RO;R17) FORM RESULT 
05 006c 158 RSB 
006D 159 
006D 160 P2$suB:: 
6060 16] "$OBJ_CHKBYT #TIR$SC_OPR_SUB ;GENERATE COMMAND 
0073 188 P1SARITH_SUB:: 
34 10 0073 164 BSBBo LDL xa _AND_STORE 
7 me On 58 193 SUBL2 RO-R FORM RESULT 
0078 167 sat ;DEFINED CHECK_OVERFLOW 
0078 168 
0078 169 GO_SET_OVF: 
bore 4 BVS SET_OVERFLOW ;BRANCH IF OVERFLOW 
0078 176 -IFTF «=; DEFINED CHECK_OVERFLOW 
007 17 
05 4 174 RSB 
07 175 
0079 178 P2$XOR:: 
oor? 17 "$OBJ_CHKBYT #TIRSC_OPR_EOR ;GENERATE COMMAND 
SOP 155 PISARITH_XOR:: 
28 10 or 180 6SBB_ =—-s- LD_XQ_AND_STORE 
51 0 cc 81 181 XORL2 ROTRI 7FORM RESULT 
05 0084 1 ¢ RSB 
085 1 
5 184 P2$MUL:: 
5 | 5 $OBJ_CHKBYT #TIRSC_OPR_MUL ;GENERATE COMMAND 
0 1 5 P1SARITH_MUL: : 
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y04.000 COMPUTATIONAL ROUTINES reer b8e 7:23:83 FAXZNRS Macro ot OO st age 3) 
1¢ 10 0088 1 BSBB LD_X0_AND_STORE 
51 86 te aBD 183 MULL2  ROTR :FORM RESULT 
3 191 LIFT ;DEFINED CHECK_OVERFLOW 
099 138 BVS _ SET_OVERFLOW SBRANCH IF OVERFLOW 
0090 195 LIFTF  ;DEFINED CHECK_OVERFLOW 
05 9099 199 RSB 
091 198 
0091 199 p2spivs: 
091 200 
0097 501 
0097 202 PISARITH,DIV: 
10 10 0097 0 6SBB LD_XQ_AND_STORE 
50 D5 0099 304 TSTL RO :SEE IF DIVIDING BY ZERO 
07 12 0098 205 BNEG ‘108 ZF NEQ NO--GO DIVIDE 
O000'CF FF BF 98 0090 506 CVTBL #=1,W*MACSGL_VAL3 “YES--FLAG DIVIDE BY ZERO 
05 OOA3 507 RSB 
51 51 50 C7 OAg 208 108: IVS RO,RIRI :PERFORM OPERATION 
00A8 210 LIFT ;DEFINED CHECK_OVERFLOW 
OOAB aE BVS _-SET_OVERFLOw :BRANCH IF OVERFLOW 
OAR 31 RSB ‘NO OVERFLOW 
QOAB 514 SET_OVERFLOW: 
D0AB 215 INCL. W*MACSGL_VAL3 INDICATE OVERFLOW 
OOAB 317 .ENDC DEFINED CHECK_OVERFLOW 
00A8 318 
05 O0A8 319 RSB 


] 
$0BJ _CHKBYT #TIRSC_OPR_DIV ;GENERATE COMMAND 
| 
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v04-000 COMPUTATIONAL ROUTINES ety 7 $F 08:48 ERACRO SRe COMPUT .MAR; 1 ° 
OA9 1 p++ 
oA § 3 FUNCTIONAL DESCRIPTION: 
00A9 4; LD_XQ_AND_STORE Is CALLED TO POP THE FIRST OPERAND INTO 
OOA9 5; RO; AND TRE SECOND 1OEERAND INTO R1. THE CALLER IS THEN 
00A9 6 ; CALLED TO PERFORM THE OPERATION, RETURNING THE RESULT IN 
4 f 5 R1. THIS RESULT IS PUSHED ON THE VALUE STACK. 
OA9 9: LD_XEQ_STORE_0O Ors ONE OPERAND FROM THE STACK INTO R1 
OA9 0; ANB THEN CALCS THE CALLER BACK TO PERFORM A UNARY OPERATION 
oA 1; SUCH AS NEGATION. OR COMPLEMENTATION. 
NS : i-- 
O0A9 4 
B0Ag 5 LD_XQ_AND_STORE: 
BoA? 38 $0POP RO GET THE FIRST OPERAND 
0081 38 LD_XEQ_STORE_0: 
0081 ) $VPOP R11 GET THE SECOND (OR ONLY) OPERAND 
9E 16 00B9 40 JSB a(SP)+ CALL CO-ROUTINE TO XEQ FUNCTION 
9088 41 $VPUSH R1 STACK RESULT 
05 00Cc PL: RSB 
00C4 4 
00C4 44 .END 
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Psect synopsis or 1380 pe 08:48 paces Macro V04-00 Page 


1 MACRO.SRCJCOMPUT .MAR; 1 


PSECT name Allocation PSECT No. Attributes 

- ABS . ») 00 ¢ QO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ ( 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
MACSRO_CODE_P15 ») 02 ¢ 2.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:80:08 «08 00:90:02.28 
Command processing 143 00:00:00.38 00:00:02.10 
Pass 271 00:00:05.04 00:00:18.48 
Symbol table sort 0 00:00:00.43 00:00:01.17 
Pass 2 56 00:00:00.97 es Be 2 94 
Symbol table output 5 00:00:00.05 00:00:00.59 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output g 00:00:00.00 00:00:00.00 
Assembler run totals 51 00:00:06.91 00:00:27.93 


The working set Limit was 1200 pages. : 

34673 bytes (68 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 503 non-local and 4 local symbols. 
244 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

37 pages of virtual memory were used to define 36 macros. 


Teen senna ee een samo se moe } 


Macro Library name Macros defined 


_$255$DUA28: (MACRO. OBJ JMACRO.MLB; 1 4 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 4 
TOTALS (all Libraries) 8 


689 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:COMPUT/OBJ=0BJ$: COMPUT MSRC$:COMPUT/UPDATE=(ENHS$: COMPUT) +LIB$:MACRO/LIB 
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VAX/VMS V4.0. : | PROPRIETARY 


